﻿Public Class Pro4_2

    Private Sub rbtColor_CheckedChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged


        If sender Is Me.RadioButton1 Then
            Me.TextBox1.BackColor = Color.White
        Else
            If sender Is Me.RadioButton2 Then
                Me.TextBox1.BackColor = Color.Yellow

            Else

                If sender Is Me.RadioButton3 Then
                    Me.TextBox1.BackColor = Color.Cyan

                Else
                    If sender Is Me.RadioButton4 Then
                        Me.TextBox1.BackColor = Color.Green
                    End If
                End If
            End If
        End If



    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Pro4_1.Show()
        Me.Visible = False




    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Visible = False
        Pro4_3.Show()




    End Sub
End Class